home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SGI Hot Mix 14
/
Hot Mix 14.iso
/
HTML
/
vendors
/
finesse
/
examples
/
perl
/
hello_world
next >
Wrap
Text File
|
1996-06-27
|
373b
|
18 lines
#! /usr/local/bin/perl
# FINESSEAPPLICATIONKEY sSoCbrUl`XvGK
# perl script initialization
$ENV{'FINESSEPATH'} = '/usr/local/finesse'
if !$ENV{'FINESSEPATH'};
require("$ENV{'FINESSEPATH'}/fsperlinit");
# Set up application server
&Fsopen(@ARGV);
# Create window
&Fsdisplay("-w", "FsWindow -btype o;",
"-m","Hello World");
# Terminate application server
&Fsclose;